From: Thierry Volpiatto <thievol@posteo.net>
Date: Wed, 5 Mar 2025 09:37:03 +0000 (+0100)
Subject: Fix register-use-preview behavior with never value
X-Git-Tag: archive/raspbian/1%30.2+1-2+rpi1^2~2^2~24^2~227
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/success/%22http:/www.example.com/cgi/success?a=commitdiff_plain;h=42a4c847e286957bef579390e9cb9854699dacfd;p=emacs.git

Fix register-use-preview behavior with never value

Allow popping up preview when pressing C-h.

Don't exit the minibuffer when the call to
register-read-with-preview-fancy is triggered by C-h.

* lisp/register.el (register-read-with-preview-fancy): Do it.
---

diff --git a/lisp/register.el b/lisp/register.el
index b0ee759ec5b..373d7e54550 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -569,7 +569,11 @@ or \\='never."
                        (setq pat input))))
                  (if (setq win (get-buffer-window buffer))
                      (with-selected-window win
-                       (when noconfirm
+                       (when (or (eq noconfirm t) ; Using insist
+                                 ;; Don't exit when noconfirm == (never)
+                                 ;; If we are here user has pressed C-h
+                                 ;; calling `register-preview-1'.
+                                 (memq nil noconfirm))
                          ;; Happen only when
                          ;; *-use-preview == insist.
                          (exit-minibuffer))